home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / P / Phone Book Stack.cpt / Phone Book Stack / Phone Book-Dev / stack_-1.xml < prev   
Extensible Markup Language  |  1992-05-03  |  6KB  |  20 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>1</cardCount>
  7.     <cardID>2862</cardID>
  8.     <listID>4980</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>on openStacksetUserLevelFivehide msgif item 2 of rect of cd window>=20 then show menubarelse hide menubarend openStackon openCardput the number of this cd&&"of"&&the number of last cd into fld CardNumberif marked of this cd is true thenset the icon of bg btn "MarkCard" to "MarkCard"else set the icon of bg btn "MarkCard" to "UnmarkCard"end openCardon autoSelif bg fld Salutation is empty then tabkeyelse select after last char in fld Notesend autoSelon idleif the optionKey is up thenrepeat with i = 36 to 48hide bg btn iend repeatelserepeat with i = 36 to 48show bg btn iend repeatend ifrepeat with i = 1 to the number of fldsshow fld iend repeatif (item 2 of rect of cd window>=20) or (item 2 of the mouseloc<18) then show menubarelse hide menubarpass idleend idleon PopUpglobal PopUpList,newEntry,PopResultset hilite of target to trueput the textHeight of target - the textSize of target into defPopput HPopupMenu(PopUpList,defPop,top of target + 1,right of target) into PopResultif PopResult <> 0 thenput item 1 of PopResult into menuNoput item 2 of PopResult into itemNoput item itemNo of line menuNo of PopUpList into newEntryif item 2 of PopResult = 1 thenset the textHeight of target to menuNo + the textSize of targetelse set the textHeight of target to 9end ifset hilite of target to falseend PopUpon UpdateItif fld Salutation is empty then put "" into salaelse put fld Salutation & " " into salaif fld FirstName is empty then put "" into firstaelse put fld FirstName & " " into firstaif fld MiddleName is empty then put "" into Middleaelse put fld MiddleName & " " into middleaif fld LastName is empty then put "" into lastaelse put fld LastName into lastaif fld Ext is empty then put "" into extaelse put "," && fld Ext into extaput sala & firsta & middlea & lasta & exta & return into fld AddressBlockif the shiftKey is up thenif the optionKey is up thenif fld JobTitle is not empty then put fld JobTitle & return after fld AddressBlockif fld Company is not empty then put fld Company & return after fld AddressBlockif fld WorkAddress1 is not empty then put fld WorkAddress1 & return after fld AddressBlockif fld WorkAddress2 is not empty then put fld WorkAddress2 & return after fld AddressBlockif fld WorkCity is not empty then put fld WorkCity after fld AddressBlockif fld WorkState is not empty then put ", " & fld WorkState after fld AddressBlockif fld WorkZip is not empty then put "  " & fld WorkZip after fld AddressBlockif (fld WorkCountry is not empty) and (fld WorkCountry is not "U.S.A.") thenput return & fld WorkCountry after fld AddressBlockend ifelseif fld HomeAddress1 is not empty then put fld HomeAddress1 & return after fld AddressBlockif fld HomeAddress2 is not empty then put fld HomeAddress2 & return after fld AddressBlockif fld HomeCity is not empty then put fld HomeCity after fld AddressBlockif fld HomeState is not empty then put ", " & fld HomeState after fld AddressBlockif fld HomeZip is not empty then put "  " & fld HomeZip after fld AddressBlockif (fld HomeCountry is not empty) and (fld HomeCountry is not "U.S.A.") thenput return & fld HomeCountry after fld AddressBlockend ifend ifelseif the optionKey is up thenif fld JobTitle is not empty then put fld JobTitle & return after fld AddressBlockif fld Company is not empty then put fld Company & return after fld AddressBlockif fld WorkZip is not empty then put fld WorkZip after fld AddressBlockif fld WorkCity is not empty then put " " & fld WorkCity & return after fld AddressBlockif fld WorkAddress1 is not empty then put fld WorkAddress1 & return after fld AddressBlockif fld WorkAddress2 is not empty then put fld WorkAddress2 & return after fld AddressBlockif fld WorkCountry is not empty thenput fld WorkCountry after fld AddressBlockend ifelseif fld HomeZip is not empty then put fld HomeZip after fld AddressBlockif fld HomeCity is not empty then put " " & fld HomeCity & return after fld AddressBlockif fld HomeAddress1 is not empty then put fld HomeAddress1 & return after fld AddressBlockif fld HomeAddress2 is not empty then put fld HomeAddress2 & return after fld AddressBlockif fld HomeCountry is not empty thenput fld HomeCountry after fld AddressBlockend ifend ifend ifend UpdateIton dialItglobal phoneStringif phoneString is not empty thenrepeat with i = 1 to the number of chars of phoneStringif char i of phoneString is in "1234567890ABCD#*" then put char i of phoneString after dialStringend repeatelseask "Dial what number?"if it = "" thenplay harpsichord "ee c"exit dialItelse put it into dialStringend ifpush cdset loc of msg to 20,300go "Phone Dialer"dial dialStringhide msgpop cdend dialIton grabItif fld AddressBlock is not empty thenselect text in fld AddressBlockdoMenu "Copy Text"end ifend grabIton AreaSearchglobal whichPhoneif char 1 of fld whichPhone = "(" thenput char 2 to 4 of fld whichPhone into areaFindelseask "Find what area code?"if it = "" thenplay harpsichord "ee c"exit AreaSearchelse put char 1 to 3 of it into areaFindend ifpush cdvisual dissolveset loc of msg to 20,300go "Area Codes"find areaFindif the result is "not found" thenplay harpsichord "ee c"put "Area Code"&&areaFind&&"not found, please try again."wait 3 secondselseput "Click the mouse to return to the Phone Book stack!"wait until the mouseclickend ifvisual dissolvepop cdend AreaSearchon closeStackget the freesize of this stackif it >= 10240 thenput "Compacting the Phone Book!"doMenu "Compact Stack"hide msgend ifrestoreUserLevelshow menubarpass closeStackend closeStack</script>
  17.     <background id="2676" file="background_2676.xml" name="PopBg" />
  18.     <card id="2862" file="card_2862.xml" marked="true" name="" owner="2676" />
  19. </stack>
  20.